/^4 findfont/EFN get TestDict begin{RF}forall end

/^4 $^2 definefont pop

end systemdict/currentpacking known{false setpacking}if

end/EFN[^D]def